home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 32 / Amiga Format AFCD32 (Nov 1998, Issue 117).iso / -seriously_amiga- / programming / e / newgui / src / examples / testchange.e < prev    next >
Text File  |  1998-08-10  |  1KB  |  42 lines
  1. OPT     OSVERSION = 37
  2. OPT     LARGE
  3.  
  4. MODULE 'newgui/newgui'
  5.  
  6. CONST   GUI_MAIN = 1
  7.  
  8. DEF     gui:PTR TO LONG
  9.  
  10. PROC main()
  11.  DEF top
  12.   top:=[COLS,
  13.          [SPACEH],
  14.          [BUTTON,{change},'GUI A',0],
  15.          [SPACEH],
  16.          [BUTTON,{change},'GUI B',1],
  17.          [SPACEH],
  18.          [BUTTON,{change},'GUI C',2],
  19.          [SPACEH]
  20.        ]
  21.   gui:=[
  22.          [ROWS,top,[SPACE],[SLIDE,{ignore},'Colors:',FALSE,1,8,3,5,'']],
  23.          [ROWS,top,[SPACE],[CHECK,{ignore},'Ignore case',TRUE,FALSE]],
  24.          [ROWS,top,[SPACE],[PALETTE,{ignore},'Palette:',3,5,2,0]]
  25.        ]
  26.   newguiA([
  27.         NG_WINDOWTITLE, 'NewGUI - Demo',        -> Titel des Fensters
  28.         NG_GUIID,       GUI_MAIN,               -> Gui-ID
  29.         NG_GUI,         gui[],                  -> Oberflächenbeschreibung
  30.         NIL,NIL])
  31. ENDPROC
  32.  
  33. PROC ignore(info,x) IS EMPTY
  34.  
  35. PROC change(index,gh)
  36.  ng_setattrsA([NG_GUI,  gh,
  37.         NG_CHANGEGUI,   NG_NEWGUI,
  38.         NG_GUIID,       GUI_MAIN,
  39.         NG_NEWDATA,     gui[index],
  40.         NIL,NIL])
  41. ENDPROC
  42.